home *** CD-ROM | disk | FTP | other *** search
/ Publication 7 / Publication_07_1996_High-Tech_de_Side_B.d64 / 1581-joker-sim (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  429b  |  25 lines
  1. 10 n$="pro*name":z$=""
  2. 11 forg=1tolen(n$)
  3. 12 ifmid$(n$,g,1)="*"andmid$(n$,g+1,1)<>""then14
  4. 13 next:print"du doedel !":print"das ist doch normales format !":end
  5. 14 rem
  6. 15 a$=left$(n$,g-1)
  7. 16 b$=right$(n$,len(n$)-g)
  8. 17 rem
  9. 19 x=x+1
  10. 20 z$=a$
  11. 21 forg=1tox:z$=z$+"?":nextg
  12. 22 z$=z$+b$
  13. 23 rem
  14. 24 open2,8,2,z$
  15. 25 ifst=0andx=16thenclose2:end
  16. 26 open15,8,15
  17. 27 input#15,f,f$
  18. 28 close15:close2
  19. 29 iffthenifx=15thenprintf$:end
  20. 30 iffthen19
  21. 31 rem
  22. 32 rem ... ab hier kaeme dann ein
  23. 33 rem entsprechender lader.....!
  24. 34 rem
  25.